LINE PROCESSOR PROTOCOL CODE 
<Hopper^ LPP.NLS 



PAGE ;lnitial constants 
ncnar RQU 
mine E30 
prbase EQU 
cpbase Egu 
dibbase ggu 
Iptp 



dtim 
pr Obas e 
Pr 2D as e 
pr3base 
xaax : 
ymax: 

lonioc 

lpesc 

cooresc 
bell 

rubout 
buachr 



453 



E 3 U 
E3U 

EQU 
E3U 

EQU 
EQU 

E3U 
EQU 



30 
24 

OOOOh 
4F9 0h 
40h 
SQL? 
for no 
EQJ 

prbase+40h 
prbase+QSGOh 

prbase+OCOOh 
nchar-1 
nline-1 
IFh 



32 

18 h 

368 

EQU 

1773 

3178 



} characters per line 
? number of lines per screen 
OOOOOh or 5000h or ? 
3F90h or 4f90h (with extra ram) 
?hi ord addr. display memory 
4 5B ;determines if scroll 

scroll window, 46B withj requires #2 prom 
4*40B ;delay time 

J code after interrupt vectors 
•page two of program 
/Page three of program 
; maximum x coordinate 
; maximum y coordinate 
JUS recalls monitor 
?RST 1 address nonitor start 



window a* 



•line processor escape char 
Jesc code for big coordinates 
O'h pell cade 

? rubout character 
•rev. video 0 



* Device nate; 



fcbdmsfc 


EQU 


177B 


bttns 


E3« 


090h 


msmsk 


EQU 


3408 


kstmsk 
• 


EQU 


03/3 


ad 




EQU 


xtrig 


EQU 


001B 


y trig 


EQU 


002B 


admsb 


E3U 


091h 


adlsb 


EQU 


092h 


adhsb 


EQU 


093h 


epcnt l 


EQU 


OAOh 


epx 




EQU 


txbzy 


EQU 


001S 


parity 


EQU 


1778 


msk07 


sau 


2003 


nulline 


EQU 


3768 



?clear parity 

/mouse and keyset switches 
jmouse button mask 
/keyset masic 

093h ; control address 

/Call for y AO 
/count mid bits 
jcount lsb's 
•count higest aits 
/external processor contro 
OAlh ; ep transmitter 

} transmitter ready bit 
•clear parity oit 

;null line if in first char 

symbols used in program from DM 

900h *loc of Data Media proas 
dibbase*100h 

diooase ;nigh order add scrambler tabla 
OOh Mow order add scrambler table 
2*nline+tab0 jstart of display memory 
nchar *-l ; §oy tes per display line 
■•lading "clear" indicator) 
nlins*dlsize+sdmem 
OAlh jtransm start i/o 
0A5ri /Receiver start i/o 
0A5h ?recv. read 
0A9h 5 cp out 

Qk8n } zp status read (0; ousy, 1: ready) 
OAOh /keyboard start i/o 
OAFh jkeyb . status write (lights) 



dmpioc 


EQU 


tabu 


EQU 


tabOo 


EQU 


tabOa 


equ 


sdmem 


EQU 


disize 


E3'J 




/(in 


tabi 


EQU 


tsio 


Equ 


rsio 


EQU 


rdar 


sau 


psio 


EQU 


psrd 


EQJ 


tesio 


E 3 U 


ks«r 


EQU 



ksrdl 

ksrd2 

ksrd'i 

k dar 

matt 

lorst 

mskwr 

deux 

dcuy 

droal 

d«ah 

dsio 

dcio 

dsrd 



EQU 
EQU 
SQO 
squ 
EQU 
EQU 
EQJ 
EQU 
EQU 

Eon 

EQJ 
EQU 
EQU 
EQJ 



dsrds witch 



dbel 
dm ode 
SPACE 2? MODE 
? Mode Buttons 

mdswcp 



EQU 

EQU 

BUTT38S 

and D'4A 

EQU 

ndswtty EQJ 

odswdisctrl 

ffldswlp EQU 

dssatt EQJ 

dsgrswlcey 

dsdisvkey 

dscppr oipicey 

dsrvv EQO 

P AGE ;CJ»STAMTS 

; 



QACh ? ceyt> . status read 1 

OAEh ? keyb. status rd. 2 (lights) 

OAFh j pushbuttons 

GAJh J<eyb read 

OCOh ? display attribute mem. 

OEEh ? i/o reset 

OFJh 5 hardware interr. mask write 

0E8m ;dsa write cursor x 

OEQh ?d«a write cursor y 

OEBh jdiaa memory address low 

OEAh ?dsna siemor/ address hign 

OEDh ; dma start i/o 

OECh ;daa clear io 

OEHh } da a status 

EQU 0£9h ;dip swtch on daa card 

OEEh ?ring bell 

GEFh >draa mode: l=line/ 0=page 
and DMA aoard switch ass igments 
Board switch assignments 



IB 

28 

EQU 

10B 

1 

EQU 
EQU 
EQJ 
20B 



} cp (not graphics) mode pushbutton 

■ tty (no LP ?rot. ) node pushbutton 

43 ?screen_£P transparent mode switch 

} LP mode pushbutton 

? switch "1" for attr Ben standout 

"2" for keyboard switch 
"3" for "disave" option 
"4" for cp ? r on exists 
reverse video 



*> 

4 

108 

; switch 



} switch 
} switch 
} switch 
"5" for 




CJNST ANTS 



grswkey EQU 
msknoad EQU 
nsfcad EQU 
stndatbit 
nostndatbit 
gsstaic EQJ 



rlloc 
r2loc 
raioc 
rbloc 
r4loc 



EQU 
EQU 



EQU 
EQU 



startxloc 
t 

epdveore 
cpnline EQU 
rqictine 
cpnehar EQU 
cpnfunny 
cpmreopen 
cproutsaax 
cponlite 
cpof f lite 
cjsoni ite 
CBiof flite 
svdlita EQU 



35B 

3573 

206 

SQU 

EQU 

2F32h 

2FFDh 

2FFAh 

2FF7h 

2FF4h 

2FFlh 

EQJ 

SQU 
nline 
EQJ 
nchar 

EQU 
EQJ 
EQU 
EQU 
EQJ 
EQU 



}~1 tor graphics switch key 
; turn off ftD int. mask 
? turn on AD int. jit 

018 ?bit in attr me a for standout 

OB jto turn off attr mem bit 

}too of stack 



?start of 3 jmp instrs for interrupts 
?RST 4 jmp, used hy HON for program "BP" 
2?EEh Joption "4" s/sten reset loc 



10B 



141B 



352B 

1 

5 

48 

3738 
2B 

375B 
;"save' 



? device code for dwl 

?# osec periods til rerequest 



? max# 
?lite 



(not g raphing : 



} funny number to verify CP 
/flag for cp reopen 

cp requests outstanding to EP k> ee ^ 
indicates cp active 
;mask to turn off cp lite 
jlita for coordinate mode 
J mask to turn off coordinate node lite 
display lite 



St 3 ACS 2 

/these next three values will have to be determined. 
SPACE I 

rate SQJ 428 ?40B+(9500/baud rate) 

/ 

nffiout S3!J 2C3h ; ACC -> Display 

co EQU lE3h }Z -> Display 



cr 



EQO 



;carrage return 



PAUE? CUDS IN RAM <2F00h) 
ORG 2?0 0i 

/DATA 

. 



aisksat; 


OS 


1 








oisdta: 


OS 


1 








okydta: 


US 


1 








cordmdi 


OS 


1 








kbof lg: 


OS 


1 








procnt: 


D S 


1 








proptr i 


OS 


2 








proend: 


OS 


2 








probuf : 


OS 


26 








f stm: 


DS 


2 








sec In, : 


OS 


2 








scrtop; 


OS 


1 








scrbot : 


DS 


1 








rndcnt: 


DS 


1 








ffltf : 




OS 






1 


xiiag: 


DS 


1 








xval: 


DS 


2 






jdon't reorder 


xcur: 


JS 


1 






? "z note hi comes oef ore io j 


xcurlo: 


DS 


1 






• it 

t 


yvai: 


DS 


2 






. it 


ycur : 


DS 


1 






} " 


Y c ur 1 a : 


OS 


i 






; **/ note hi comes before lo* 


curptr : 


OS 


2 






} memory pointer corr. to xcur/ycur 




jxval, 


yval 


contain lasst a/d read, xcur /ycur are de jittered 


corr. 


to xval 


/yval 


* 






cur nty; 


DS 


1 






/scratch for nstlnl 


ttyx; 


OS 


1 






} saved xpos while positioned 


ttyy: 


DS 


1 






> (dor 't reorder ttyx-ypos) 


xpos: 


D S 


1 






? cur. pos for writing chars 


ypos: 


OS 


1 






?(if tracking/ is next tty pos.) 


posptr : 


DS 


2 








massof 


OS 


1 






? aaster standout flag 




JO for 


normal/ 




1 for standout 


stndoutf : 


DS 






1 ^standout iioda o it storage 




/used 


only 


for 




bit in regular memory 




;mife 


-3M-3 


'iS A. *# 


K 








?o 


when 


normal/ 2008 when standout 




} BLACK 


-DN-Si 


HIT 


F 


* 
• 






?2003 


<hen normal/ 0 when standout 


swindt : 


OS 


1 








swindb: 


DS 


1 








char J 


OS 


1 








epbso: 


as 


2 








dwlbyr et : 


DS 






2 


epcnt : 


DS 


1 








xbug: 


DS 


1 






/temp store for x bug pos 



URG 



PAGE? 



epinptr i 


DS 


2 


epoutptr : 


DS 


2 


epbuf: OS 


32 


>8P in buffer 


ep&end: DS 


0 




epcl<iof f 


EQU 


24 /turn off display at th is many 


epcldon SQO 


10 


} turn on display at this Many 


epclerr EQ ! J 


32 


'error at this many 


Idrlsbi DS 


1 


/loader lower half byte. 


mar: DS 


2 


; loader aesory address 


dwlret: OS 


2 


y dwl return 


dyitrv: DS 


2 


/l»l transfer vector 


/dont' reorder 


tintf lag/ 


t intent 


tintf lag; 


DS 1 


t intent 


• 

• 


3 3 1 ?cycles about ever 4 s 


mskl DS 


1 


?int. mask 


disavef lag: 


OS 


1 } copy display to "save" buffer 


/don't reorder 


grtrackf , 


grcurf / and curehflag. see chkgrcur. 


grcur f : ds 


1 


; graphics cursor active 


grtrackf : 


OS 


1 ; graphes xf er not in progress, 


curchf lag: 


DS 


1 } cursor has changed 


deilo: ds 


1 


/hysteresis const lo bits 


deihi: 03 


1 


jhysteresis const hi bits 


coorlo: DS 


1 


Jfor big coordinates 


coorhi: DS 


1 




scwdlr: DS 


2 


"double incr. or deer. 


scainptr : 


DS 


2 


sewxpos: 


3S 


5 /storage for ?ara»eters 



faay -te-a-ei 



?xleft/ xright/ 
/mouse/keyset state 

>cur*b-maxmouse 
cur no: DS 
iiousesent : 
charsnt : 
aaxijsuse: 



V'top, ybot, nl in.es 



grouped 
1 

ns 

DS 
33 



together 
? current 
1 
1 
1 



for initialization 
mouse button state 
; last mouse sent to e? 

(non-mouse) character 
of mouse auttons sine 



/last 
; H or" 



sxcur : 


OS 


1 


sycur : 


DS 


1 


cpbase jafter 


"save" 


di 


epent: DS 


1 




cpinptr: 


DS 


2 


epoutptr: 


DS 


2 


epepent : 


DS 


1 


rqoutl : DS 


1 




epeksum: 


DS 


1 


ephent: DS 


1 




cpdev: OS 


1 




epignr f : 


DS 


1 


cpsqnum: 


DS 


1 


epentptr : 


DS 


2 


cpnopnf : 


DS 


1 


cpnopver : 


DS 


1 


cprptcnt : 


DS 


1 


cprptchar : 


DS 


1 


cpoutrv: 


DS 


2 


* aon't reorder 


next 3 





ter *si w 

incest a 



buffer 



^remaining chars expected from ep for cj 



cpr gent: 

?can 
epemtdent : 
rqoseqn : 
1 N i T and RST iocs 
•org for system reset 



be 



DS 

sent 
33 

D5 



to 



1 

EP 

1 

1 



/# requests which 
{# of suffers available) 

># of buffers committed 
?seq# corr. to epoutptr 



< regues' 
'«4r 



ORG 
juiP 



ORG 
out 
in 
imp 
RESTART 1 
ORG 

1 Sip 
RESTART* 2 

ORG 

j sp 
RESTART 3 

ORG 

3"i*P 
RESTART 4 

ORG 

jap 

RESTART 5 

ORG 



pr jasa 

ini ta 'used for system reset when non-prom version 
; doesn't check miswlp mode button. 
?wh8!i prsase is 0 (far proiss), this isntr action is 
/overwritten by the code ORG'd at 0 below 

0 

iorst 
ksrd3 
init 

(keyboard interrupt) 
8h 

rlloc 

(line receiva interrupt) 
!0h 
r21oc 

(line transmit interrupt) 
18h 
r3 loc 

20h 
r41oc 

3un 
r6],oc 



3®P 

; tor der>ug startup 

ORG startxloc 

lap init a 

PACK? CODE AT 040h (goes at 7040h yhen debugging) 

?see other "IF. G** after epenup 
ORG prObase 
SPACE 2 ; INITIALIZATION 

; 

? INITIALIZATION 



SPACE 

init : 



1 1 i t a : 



pup2 



in 
ani 

JZ 

in 

r lc 

rlc 

r lc 

ani 

Ixi 

Imp 

mvi 
out 
ixi 
ixi 
mvi 
ixi 

mov 
inx 



ksrd3 

mdswlp ;lp button 
inita 

dsrdswitch ?no/ junp according to switch settings 



; switches "9", "1", n 6 n 



73 

h, star tvec 

eps99a 

a,l 

daode ?set draa to line node 
d,sdmem*l ;init line table 

3/nchar+l ;i3 one duimy D/te Dsfare each line 

3/ nl ine 

h, tahO ; addr of line table 

1/8 



HIQV 

inx 

xchg 

dad 

xchg 

dcr 

Iriz 

xra 

out 

out 

ljci 

mvi 

out 

out 

out 

out 

mvi 

out 

sta 

mvi 

out 

call 

cal 1 

PAGE } Continue Init 
lnitcont : 

xra 
sta 
sta 
sta 
sta 
sta 
sta 
sta 
sta 
sta 
sta 
sta 
ixi 

inx 

mov 

inx 

mov 

inx 

mov 

inr 

sta 

sta 

mvi 

sta 

call 

mvi 

sta 

lxi 

shl 1 

lxi 

lxi 

mvi 

ij 2: 

Idax 



h 

? add nchar+I to BE 

b 
a 

pu? 2 

a /put null at beg, of each line 

dmal jahile a is zero 

matt; so funny display hits are 0 

s p / 1 s t a < 

3/ tab Ob 

dm ah 

ksio 

rsio 

dsio 

a, lOh 

mskwr 

ms'i jcurrent int. mass leapt here 

a/Xtr ig ? start a/d 

ad 

cendstd ;get all standout flags set right 
vdeir 



ep cnt 
omsdta 
xf lag 

di save flag 
rndent 
cor drod 
swindt 
xpos 
ypos 
dello 
grcurf 
h/curab 
U/ a 
h 

vx, a 

h 

Mf a 

h 

®, a 

a 

gr trace f 
aitf 
a, IB 
delhi 
nposxy 
a, ymax 
swindb 
h/e?slO 
epbsO 
h f r 61oc 



> init epin state 

?so a zero won't be sent at start 



ziousesent 
Jcharsnt 
; aaxmouse 

? tnis is 1 except a hen gr. xfer fros 
?not positioned ("tracking") 
? this could be deleted of it stays "1" 
? iy steresis of al?ha and gr. cursor 



C/12 



i jtab 



•copy interrupt juaip instructio 



ns 



buf int; 



liOOD 



PR0V 

inx 
inx 
dcr 
jnz 

1 xi 
shld 
shM 
Ixi 
shld 
Ixi 
shl d 
inx 

inx 
sftid 
mvi 
sta 
call 
cnz 
ei 
iaa 
ana 
jz 

call 
1 « P 

Ida 
ana 
cnz 
Ida 
ana 
cm 
call 
cnz 

Ida 

ana 

jz 

in 

ani 

1 nz 

call 

raloop2 i 

cal 1 

imp 
cpprooichk: 
in 
ani 
ret 



ml oopl : 



mloop3: 



ljtan 



Imp 

jap 
3®9 



start vec 



M/ a 
h 
d 
c 

112 

h/apbuf 

epoutptr 

epinptr 

h, 5 Op * 100 n + 34 B 
probuf 
h, probuf 
proptr 

h 
h 

proend 

3/ 2 

procnt 
cppromchk 
cpini t ; cpin, 

epcnt 
a 

oil oopl 
epcod 
n 1 o o p 

disavef lag 

a 

dis as? 
tintf lag 
a 

tifflsvc 
c?pr o a chic 
cpoutchk 

procnt 
a 

raloop2 

epcntl 

txbzy 

nloop2 

prout 

mloop 

S3lanicchk 
mloop 

dsrdswitch 
dscppr oitkay 



;epin ptrs 



is/stem reset cade 



e? output buf far 



out ptrs 
> cou enable interrupts 
;sse if anything in spin ouffar 
/this loop waits for interrupts 



?sae if c? routines axist 
;yes, see if ready/ etc. 

? see if anything waiting to go 
? ( set f lags) 
J go out to ep 



adint 
adint 
rint 
kint 



?• intructions to be copied to scratch 
• f uesnory 



/DMA 

DM 



en reset startup locations as per last 3 switches on 
board (only if LP mode button in) 
inita 



DM 
Dm 
Uil 

D« 
DM 



3B00h /assumes "switch" display not used 
7 000fi ? assues extra memory option 
startxloc 

', assunes no debug nonitor (fefhicn may use this 

inita 'spares 

inita 

inita 



ram loc» ) 



PAGE; INTERRUPT SERVH 

• _ _ _^ , _ _ . 

/ — - — - — — 



'E 



IMTKiiKJPT SERVICE 



S?ACE 2 
interrupts are 



U32d: SP RECEIVE/ KEYBOARD/ and AD (CLOCK) 
These are currently routed through 

are 



/they cause KST 1/2/5 , 
jscratch locations starting at 2FFAh. 
?set 3/ tnis program to 1uji? to R I H T / 



These locations 
KIMT/ and AO INT. 



adint 



rint : 



id one 
lexit 



f AGE * 2A1.CULATE 



/ 
/ 
) 

• « 
/ 

/ 



push 


OS ¥ 




PUSh 


h 




P us h 


•> 




push 


a 




jap 


IcodtsO 




push 


P s «f 


•save regs 


push 


h 




push 


b 




push 






1np 


tintsyc 




push 


OS W 


•save regs 


push 


h 




pus n 






push 


d 




call 


eptst 




POP 


d 


'restore regs 


pop 


b 




pop 


h 




POP 


?sn 




ei 






ret 




} return 


SPACE 


2 






3 3 INTER 





CALCULATE LLHt POIMTEI 



? 
/ 



SPACE 2 

*lncnt converts a line numer to a painter into refresh 
jgettiig tne appropriate entry from the line table 



pernor/ by 



J. ncnt : 

lxi h/tabO 



lncntb i 



rlc 






add 


1 




S5DV 


l,a 




mov 


3/ ffl 


; low order byte 


lax 


h 




mov 




/high byte 


mov 


1, a 




dcx 


h 


position to dummy 


rat 







Sf ACE I } — SCROLL REFRESH MEMORY 



SL'KULL REFRESH MEMORY 



) 
* 
r 
_ t 
/ 



scroll : 



Ida 


swindt 


ROtf 


b,a 


Ida 


swindb 


mov 


c, a 


call 


scren 


cal 1 


nposxy 


ret 





>top of window 
?bottom of window 



'scran accepts top and bottom (line number) values in b,c. 
jit moves the corresponding line pointer entries (rotates them 
?up one). The to? aitry is moded to the 
?t>ottem and is blanked (null inserted as first char) . 

scren: 

call setrot ; init s hi, 6b, a for rotate 
; rot at a up/ de has (b ) enttr/, hi 
•points to (c) entry 

>?oint to second byte of last entry 



screnl: 



inx 


h 


HiOV 


c/d 


WOV 


d, m 


SBqV 


ffl/C 


dCK 


n 


mov 


b/ e 


mov 


e, a 


mov 


ffl/b 


cup 


1 


rz 




dcx 


h 




screnl 



setrot 



j do second byte 



? f i r s t byte (low order) 



? if done 



/called for both rotate up and down to set a, hi, and de 
^returns: de has (b) entry, bl points to (c) entry 



mov 
call 

KSVi 

inx 

xchg 

ravi 

mov 

rlc 

Kadi 

mov 

mov 



a,b ;?ick up (b) enry 
lncnt ;h points to dummy byte 
m, nullme ; null this row 

h } actual start of display line 



h/tabOb 
a, c 

t a •> 0 a ) 
I, a 
a, b 



insbc: 



insbc2: 



rl c 




; loop tern? checte no J in place 


ret 




•insert 


at line 


number (c), rotating down through 


call 


setrot 




inr 


a 


?for term test 


m.ov 


b f e 




raov 




/first (low order) byte 


mov 


1/3 




inx 


h 




fflOV 


C/ d 




mov 


d/m 


; second (high) byte 




11/ c 




crap 


1 




rz 




}if done 


inx 


h 






ins3c2 





PAGE; 
• 



f 

• . 

} 



CLfcAR SCREEN 
C UEfttt SCREEN 



f 
} 



SPACE 2 

;rdclr sets display memory to spaces. It is called during 
? initialization/ by the clear screen command of nls, and t>y 
jnardware reset. 

space 2 

vdclr : 



vdcl2: 





a/Hulline 


ravi 


c/nllne 




d/nchar+1 


lxi 


h/sdmeni 


mov 


a>/a 


dad 


d ; 


dcr 


c 


Jnz 


vdcl2 


ret 





;add nline to hi 



St»ftC£ I } — CLEAR LIHE 



:uE»8 LINK 



SPACE I 

? cir in expects register b to contain number of 

jcharacters to oe cleared andhl to contain pointer to first locatin. 
SPACE I 

clrln: 

Ida stndoutf 

ori 40B jolanks 

clrlnl : mov m,a 

inx h 

dcr b 

jnz clrlnl 
ret 



PAGE? VIDEO DISPLAY O'JTPfJT 

■ - ... 

) 

VIJEJ JJSPLAlf DJTP3T 



/memory 
;scroii 



; vdout 
It ch 
ing. cn 
vdout : 



accepts 
ecks ml 
a r a o a s 



a character in register C to output to the refresh 
£ to see if it should hand crlf and do 



tO XpOS/FPOS. 



vdout2: 



vdout3; 



vdcr : 



vdhs: 



Ida 


mtf 


; a r e we positioned 


ana 


a 


? set f lags 




3/ C 


?get char 




vdout2 


jyss/ ignore cr/lf 


ani 


177B 




oi 


DJft 


?:r? 


jz 


vdcr 


?yes 


cpi 


QAh 


* L.F? 


jz 


vdlf 


?yes 


cpi 


08h 


;*h oacicspace 


jz 


vdbs 




cpi 


bell 




jz 


vdbell 




c»i 


408 


;is it a coatrol char 


jp 


vdout3 


} no 


in 


icsrd3 


; check mode putton 


ani 


mdswr«isctr 1 ; for transparent 


tnov 


a, c 


Jin case jua? to vdout3 


jnz 


vdout3 


?/es/ don't convert to spa 


mvi 


a, 408 


* normal : concert to space 



s?a:s 2 
;otnar 

SPACS 



2 



sinply put char out to xpos/ypos 



Ixi 
ora 
lhld 
mov 
inx 
shl i 
Ixi 
inr 
mo v 
cpi 
rc 

set xpos_0 



h, stndoutf 

m 

posptr 
ni/ a 
h 

posptr 
h, xpos 

m 

a, m 

xmax+1 



?or in standout bit (if set) 
?put out ot refresh memory 



xra 
sta 
call 
ret 

1»1 a 

ana 

rz 

dcr 

sta 

call 

ravi 

call 



a 

xpos 
nposxy 



xpos 
a 

a 

xpos 
nposxy 
b,l 
clrln 



? update pointers 
/Check for wrap 
;ok/ no wrap 

;just go to left Margin 



/Set flags 



vdbeii j 



ret 

out 
ret 



dbel 



* 1 f Li" , scroll if ypos is at ootton of 
?tty window, else buap ypos 
SPACE 2 
vdlf : 



PAGE? 



vdlfl 



SPACE 2 

sblankchk: 
Ida 
ana 
tnz 
ravi 
Ixi 
Ixi 



Ida 


s«rindo 


fflOV 


c/ a 


Ida 


ypos 


cmp 


c 


It 


vdlfl 


inr 


a 


sta 


ypos 


call 


nposxy 


ret 




call 


scrol 1 


ret 





; not at bottom, bump. 



so ink2: 



fflOV 

cpl 

dad 
dcr 
jnz 
ret 



/blank first nulled line (if ay) 
iiassof ? see if standout on 

a 

? it so, don't try tnis 

C/nline 
d, nchar+1 

h/Sdmeas ipositioned to first line 

a/ffl J is line nulled 

nulline 

sblnk3 jyes, go clear it 

d 

c 

sblnk2 



so Ink 3 : 



avi 
call 
r © t 

A/J CONVERTER DRIVER 



b^ncharf 1 

clrln ?olank rest of line 



A/J CUNVERTSK DRIVER 



* 



Called to uodate % or f value 
Calling par am: 

} xf 1 ag=0: the x coordinate was last requested and 
} will be read this time* 
} Results Mill oe out in xval. 
? xf!ag=-l: same except y instead of x 



convrt 



Ixi 
mvi 
Ida 
rlc 
jc 



h/yval ;result is y 
e/Xtr ig 

xf lag ?0 = x, -1 = y 
cnvtr 



cnvtr 



cnvrts ' 



cnvrtxj 



cnvrty i 



lxi 


h,xval 


? result is x 


mvi 


e/Vtrig 




c-na 






sta 


xf lag 


/next one next time 


in 


adrasb 




ana 


a 




ral 






mov 


Cr a 




in 


adhsb 


•.highest bits 


ral 






ani 


lFti 




sui 


108 




In 


cnvr tq 




xra 


a 




mvi 


C/0 




c n v r t q ; 






50V 


b, a 




mov 


a./ a 




out 


ad 






d,4 




call 


gnfaits 


; rot be left 4 


mov 


3/C 




sub 


in 




mov 


c/ a 




inx 


h 




mov 


3/b 






u 




mov 


b/ a 




3c 


cnvrts 


? going down, us new vai 


push 


h 


jnot going down/ get hyst 


lxi 


h/dallD 




mov 


a/C 




sub 


ra 




mov 


c, a 




inx 


h 




mov 


a/ b 




sbb 


m 




POP 


h 




ri 




;not dei a30/e oldval, no 


mov 


b/ a 




jnz 


cnvrts 


}?os, change, >del 


mov 


a,c 


} lay be zero 


ana 


a 




rz 




/exactly del above oldval 


mvi 


a/ 1 


? 3re changing/ set flag 


sta 


cur chf lag 


iUOV 


a/ c 


} add be to oldval 


dCX 


h 


? low bits of ov 


add 


in 




mov 


1/3 




mov 


c,a 


?also keep in c 


inx 


h 




mov 


a/b 




adc 






mov 


in/ a 




inx 


h 


Jhi "cur" 



eresis 



no change 



gnbits: 



gns>2: 



HO V 
MOV 

inx 
mov 
cal 1 
rz 

j up 

push 
mvi 

mov 
r a ] 
mov 
mov 
ral 
mov 
mov 
ral 
mov 
dcr 

ret 

SPAC P 2 
CURSOR ROUTIMBS 



®f a 

b,a ?f or graphics cursor 

h 

Hi/ c 

cpproaichk ? returns true if pros exists 

;aot there 
cnv graphics 

d 

e,0 

BtC 

c f a 

b, a 
a, e 

e/ a 

a 

gnb2 
d 



CtfKbUR ROUTINES 



ncurxyi 



ncurb 



call 
3nz 



cppromchk 
chfcgrcur 



?is cp proa there? 

* prou there/ check: farther 



gycur : 



call gycur 
out dcuy 
call gxcur 
out deux 
ret 

jreturn valid y 
•preserves 3/C 



gxcur: 



Ida 
aria 
rar 
caa 
adi 
rc 

xra a 
ret 

/return valid x 
/preserves h f c 



ycur 

a 



ymax+l 



} a-n cursor 



cursor pos in A 

/preserves h 
Jturn off cary 
} divide by 2 
jsuotract from /max 



Ida 
cpi 
rc 
mvi 
ret 



xcur 
xatax+1 

a/ xmax 



?if result ok 
;no/ (ymax-ycur/2 

cursor pos in A 

} limit at xmax 



< 0) 



nposxy: 



nposax; 



/set posptr, with check for nulled line 

instead of ypos 



npos2; 



Ida 


f DOS 




? entry 


if using 


a 


call 


Incnt 




rnov 


a/m 




c ? i 


null in s 




jr.7. 


npos2 




push 


h 




Ida 


massof 




ana 


a 




push 


PSH 




cnz 


cendstd 




mvi 


b/nchar+1 


c a 1 1 


clr In 




pop 


psw 


» 
/ 


cnz 


cstdout 


m 

r 


POP 


h 




Ma 


xpos 




mo v 


C/ a 




TV i 


b/00h 




dad 






inx 


h 


* 


snid 


posptr 




ret 







reset reverse video if set 



old massof 

reset reverse video 



/ move past dummy byte 



PAiia? A/J iiSRflCE S3 J T 1 1 fi 



A/U SERVICE ROUTINE 



adsvc : 



tintsvc: 



tirasvc: 



call 




convr t 


cal 1 




ncurxy 


ret 






SPACE 


•y 




/seriri 


ce syc interrupt/ just set 


lxi 




h/tintf lag 


inr 




m 


Ida 




msk ; turn off int. 


ani 




Dsknoai ? until ad serviced 


out 




askwr 


sta 




msk 


3 np 




idone 


s?a:s 


2 




? non- 


interrupt sevice of ad/ mouse 


call 




adsvc 


call 




raousrd 


cal 1 




kysaao 


xra 




a } clear tintflag 


lxi 




h, tintflag 


mov 






Ida 




tisk ;tum on int. 


ori 




raskad 


out 




mskur 


sta 




msk 


inx 




h ?to tintcnt 


inr 




m ' just cycles round 


rnz 







flag 



(at tiuss/ 



keyset 



and round 



PAGE? 



call c??ronctiic 

cnz rqtochk 
ret 

MOUSE AND KEYSET ROUTINES 



?eacii 256 ad services 



MUUSE AMU 



ROUTINES 



/ 
* 

/ 

J 



mousrdi in 


bttns 




sta 


ISkSdt 


}savs character 


ani 


fflsaisk 


?read mouse & keyset 


mov 


c,a 




Ixi 


hf omsdta 




cup 






rz 


1 hasn't 


changed 


mov 


m f a 




rlc 




Jput In lower byte 


rlc 






rlc 






ori 


2408 


? sign bit/ adds 200b 


cal 1 


nkybuf 


Jput in buffer 


ret 






SPACE 


2 




KBITS ET INPUT 







£ Y S E T INPUT 



PAGE * 

) 

• 

* 
/ 

} 

t 

kysamp ; 

1 Cs3 

ani 
lxi 

CfflD 

rz 

ana 

3nz 

mov 

mvi 

adi 

call 

ret 

kysor: }ov 
or a 
mov 
ret 
SPAC 

page; put keyboard 
; put keyboard char 

? keyboard in 
nkybuf: 

mov 
cpi 

jmc 
Ida 

B30V 

cpi 



} get button info 
•extract keyset 



} no change 



msksdt 
kstasc 
h/okydta 

a 

a 

kysor 

m,Q 
2003 
nkybuf 

new reading with old 

B 2 

:s^sa:tsr in sp output buffer 
acteh in £p output buffer 

C1/177B3, mouse in E240R/2476J, keyset in r200B,237B7 



?not done/ or in these bits 

? done, get the char from okydta 

Jclear okydta 

?put in buffer 



;save 
? exit 



C/ a 

2403 
kbf ras 
curub 
b/ a 

58 



; see 
>yes 
} not 
? and 
•see 



if from mouse 

from uouse/ 
keep in b 
if marker or 



:heCiC cur Tiause 
viewspecs 



cpi 
3nz 
dcr 

Ixi 

cmp 
jz 

call 

nfcybdems; 

Ida 
ani 

mvi 
cnz 
kbchrsnd: 

? sen! t 

raov 

sta 

cpi 

is 

sul 

JcDcha : 

fflOV 

inr 

cpi 
mov 

U 
ana 

jia 

kDchckys : 

cpi 

jc 

ani 

cpi 

inc 

mov 

cpi 

jz 

cpi 

iSOV 

jnz 

ani 
n<ybasing: 

raov 
nkybsing: 

call 



nkybdeis 
7 

nkybua 

a 



/yes, 
jno 
?yes 



?no/ sake sure 
upper case vs? 



not in souse sequence 



h, mousesent 

m 

kbchrsnd 
kOmsend jsend 
kbchrsnd 



/need to send mouse? 

)no, already done 
as current nouse 



nicybsD 



; entry 

in 

ani 

mov 

inz 

cpi 

cz 

cpi 

cz 

in 
ani 

cnz 



; might need to send zero nouse 
raousesent 

7 * ep has it non-zero? 

a/0 ; so won't clear flag 

kbmcsend ;send zero mouse (if was non-zero) 

; mouse state is taken care of 
:har in z 
a,b /jiouse state 

charsnt ? a char is being sent in this state 
4 

Icocha ?is <4 

5 ; was 4/5/6/ or 7 



/keep in d 
/fioa in CO/41 
/control char? 



•1/3 

d 
3 
a/ c 

kbchctrl 

a ? see if froi Keyset/ non-letter 

kbchkyss ;yes 

101B 

nk/osing jnon-letter, no translate 

337B ?put in U003/137B1 

133B 

nkybsing jnon- letter/ no translate 

a/d ? is letter 

0 ?case 2? 

kbchtwo 

3 ? upper case? 

a/c 

nkybasing 

33/8 ?upper case it 

C/3 

coorchk jmaybe send coordinates 
for uouse outton chars 
ksrd3 

adswlp ? reserved keys for screen switch, graphics? 
a,c 

kbncrd ? no 

348 ?yes/ save screen? 
kbfdisave ? yes 

36B jswitch screen? 

!cofds*Jitch ;yes (never returns aith 368 in A) 

ksrd2 ?see if switched screen 

108 

kbfdswitch >yes/ switch back 



mov a,c ;yet back char 

cpi gr swkey ; switch graphics cursor? 

jnz kbncrd ;no 

call cporoBchk ; sea if c? pros thera 

cnz fcbfgrsw }yes, notes a is smashed 
kancvd: ; riuast calls here, requires "a" preserved 

Ihld proend Jin case called here 

mov i>,a 

inx h 

shld proend 

lxi h/procnt 

inr i 
ret 

kochctrii jmake control char 

ani 378 

3ip nkyoasing 

IcDchkyss: /keyset char . 

sui 408 jnos* in £1408,17783 

biov c,a 

cpi 1733 ; see if special 

jc kbchckys ; proc ess as ordinary char 

tsov a,d 

rlc 
r 1c 

add d ;5 tines mouse state 

add c ? plus value d£ char (in ri73B / 177Bl) 

lxi h/kystab-1738 

mov C/a 

fflvi b,0 

dad b 

aov a^m 

jap nkybasing 

kbchtwo: /case two mouse 

isov a, c 

ani 37B ; w i 1 1 always trans into 

iov C/ a / a case two char 

mvi b/0 

lxi h,case2taa 

dad b 

i?ov a,ji 

jap nkybasing 

Kotms: } mouse char 

ani 7B 

sta curuO 

lxi h/inaXT.ouse 

jnz kbf iusx } non-zero change 

niov c/ffl ; now .zero/ get mouse char 

mov m f a } and clear 

lxi h/charsnt Jsee if a char was sent 

mov a/ia "while buttons were down 

cpi 2 J but not just C A button 

m v i n/0 

jnc kbfrasy ?yes, char was sent 
;no f send mouse char 

fflOV 3/C 

cpi 7 /ignore a 7 



rz 

mvi b,Q : look- up in table 

Ixi h/mousechrtab 

dad t> 

mov C/r.i 

cpi 6 ;CA, CO, or * B? 

cc coorca ?yes 

lip nfcyoso 



^bfmsx: /non-zero change 

or a i Jjust or in to aaxmouse 

mov m/a 

call setcoors ;savs current coors for later 

ret 



kbtmsy: 

Ida aousesent * cnar was sent, ahat ao out mouse 

ana a 

rz *no, it wasn't sent 

xra a } yes it Mas, send zero mouse 

jip ioisenc! 



coorchfc: 



coorcb: 



coorca ; 



lomcsend : 



kbrasend: 





/preserves b,c 




J onl^ 


called hare for 


teeyboar d 


mov 


a/C 




CD i 


48 




jz 


coorcb 




cpi 


20 




jz 


coorcb 




c?i 


303 




rnz 






call 


setcoors 




/caliel here for nouse 


chars C, 


•preserves bvc 




push 


b 




Ihld 


proend 




mvi 


m,348 




inx 


h 




Ida 


grcurf 




ana 


a 




3nz 


kogcoor 




mvi 


Sif 428 




ravi 


d, 4 j oasic 


f chars, 


jmp 


kbms2 




* 

* 


;set coors and 


sand a 


^preserves b,c 




push 


psw 




cal 1 


setcoors 




pop 


psw 





chars 



:d, ~s 



adjusted by obstore 



? f rora mouse, has high order bit on 



^preserves b,c 



st a 

adi 

push 

mov 

Ihl 3 

mvi 

inx 



mousesent 
1008 

b 

C/a 

proend 
m/348 

h 



jsav char 

?put out 34b 

? increment pointer 



khms2 



Soen2: 



bbstore 



1 d a 


grcur f 


? which cursor 


ana 


a 




3nz 


kbgcur 


/graphics cursor 


mvi 


a, 43B 


; put out 43b 


mov 


m,a 




inx 


h 


/increment pointer 


svi 


d/5 


/basic fchars/ adjusted by bbstore 


mov 


SI/ c 


} control or aouse char 


lax 


n 




Ida 


sxcur 


/ gxcu r / gy cur preserve hi 


call 


bbstore 


*?ut a in buffer/ maybe as two chars 


Ida 


sycur 




!?!□ V 


C/ a 




mvi 


a/yaax 


/invert and add 40B 


sub 


C 




call 


bbstore 


/put a in buffer/ maybe as two chars 


* entry 


from graphics cursor handling 


Pop 


b 


/restore b/C 


Ida 


cordmd 


5 no mouse or coors unless in cordmd 


ana 


a 


/bastes cycles, but saves program 


rz 






srild 


proend 


? store it 


!xi 


h/procnt j get address of procnt 


mov 


a, m 


/move contents to a 


add 


d 


;add count 


mov 


U/ a 


? store again in procnt 


ret 








?put a 


in ouffar as coordinate/ possibly oiy 


; expects a count in d, will bump by 2 if big coord 


cpi 


94 


;see if big coord, nesc. 


3c 


oo st a 


? no 


inr 


d 




inr 


d 


/adjust count in d 


push 


psw 




mvi 


1/ coor e 


sc ? escape char first 


inx 


h 




r 1c 






rlc 




> two top bits next 


ani 


3a 




adi 


40B 




aov 


IS/ a 




inx 


h 




POD 


? 3* 


• calling param oac< 


ani 


778 


/bottom 6 bits 


bbsta: 






adi 


40B 




mov 


Ji/a 




inx 


h 





rat 
setcoor s ' 



cal I 
sta 
call 
sta 
ret 
^tdisave? 

in 
ani 



> save current cursor pos 
^preserves >/C 



gxcur 
sxcur 
gycur 
sycur 

;copy di buffer 

dsrdswitch 

dsdisvoy 



to save buffer 





r 7 






wvi 


a # 1 j 5 e t flaflf a ni rpturn 




*? i" 


^ 1 *5 a V £5 f 1 ft 






c -> * r o turn f* n 11 At ^ ] 1 ar 




inx 






ret 




kbf dswitch: 


/ O w X v w H U X fr 7 « J X ill d ^ 5? O 




in 


ds r ds £ 1 1 c h 




an i 


$ *5 r! *f <^ v lr &» v 




rz 






in 






xr i 


s v d 1 i t ^ ; isino "insart d& 1 at £ H lioht 




out 


o 1. 




ani 


s v d 1 i t p 




lxi 


■* if la x 




i ti^ 


lr ^ f <i ^ ? ? i f 'ja r a c j i t rh i no t n tKp "c ^ u o 




lxi 


K - f si H 0 • n a . +• a i* o rr 1 1 1 :a T 1 huff a r 


kbf <is2i 








mov 






out 


dnn ah /Switch 




HSOV 


<3 # X 




out 


U m « X 




inx 


C?T\ • return 1 1 at* *(» 1 fir 

oP /it? lull* to Csl ISf S CdiiSr 




i ax 






ret 




disav; 


* w a y 


u^nt* £ a ra ^ If p f h i ^ dn it in nart^ 




call 


/T> r> ** /\ m h Lr 




cnz 






lxi 


h * t ah 0 




lxi 


i . t ah i 




lxi 




ai sloop 


* 
* 






mov 


a^ is 




stax 


U! 




inx 


h 




inx 


d 




dcr 


\* 




jnz 


dis loo? 




dcr 


K 




i nr 






lxi 


h * ^ 1 <; aVAf 1 

ii jf r_i x •>> <2 « ci i ay 




mov 


\* 




lxi 


h m t 1 ! f 1 Y 1 |D 1 i no f aK] A 




lxi 


H * t 1— taiO Jfipl ta in if 




ravi 


a* ?4 


dis 12: 










> its 

d JF Mi 




add 


r 




mov 


Ut 4r Ci 




inx 


h 




mov 






adc 






mov 






inx 


h 




dcr 


e 




j nz 


disl2 




ret 





PAGE? KEYBOARD INPUT 

> — - — - — — - ; 



KEYBOARD INPUT 



} 
"} 



kbdtsG: 



PAGE? 

f 

f 
m 

r 
1 



OUTPUTS 



in kdar 
ani kbdmsk 
out ksio 
call nkybuf 
jm® idone 
PROCESSOR BUFFER TO SP 



•get char 

?call for next char 



OiJTfUTS PROCESSOR 


BUFFER TO SP 


• 
* 

/ 




pr out ; 


Ihld 


y i u u i £ f 


/ 

rv t* /■* q p /"v f* K n ♦ ^- b i« 








a/ m 


;get char 






out 


apx 


?prout called ansa 


tKrdy 




imx 


h 


/increment pointer 






siild 


pr optr 


/store new pointer 






Ixi 


h/procnt 


Jget buffer count 






di 




J so this gets done 


r Lght 




dcr 


m 


/decrement by 1 






inz 


proute 


; exit 






Ixi 


h/probuf 


>buff empty/ reset 


ptrs 




shl d 


pr optr 


J procnt already 0 






sua 


proend 






proute: 


ei 
ret 




> touchy stuff done 





PAGE? EXTERNAL P ROC'S 

/ — — ——————— — — — 

; EXTERNAL PROCESSOR 
/ 

; 

/ 

trackof f : 

Ixi 

raov 

mvi 

rrc 

rnc 

Ihld 

shld 

ret 



SQR COMMA MO ROUTINES (except CP and GRAPHIC 
COMMAND ROUTINES 



* 

/ 

/ 

/ 



h/mtf 

Br ffl 

a,0 



xpos 
ttyx 



? clear mtf 

; see if it was set 



? no, just return 

) Yes, save xpos/ypos in ttyx, tt/y 



ooscur : 



poser 1 



ooscr2: 



call 

call 

sui 

mvi 

call 

sta 

call 

mvi 

sub 

mvi 



; subtract 40(8) 



trackof f 
epssnxt 
20h 

C/Xmax 

Dndchk ?nake sure in CO/xnaxJ 

xpos ?x coordinate 

epssnxt 

a/yuax+403 

c /change so 0 is at top os screen 

C/ymax 



cal 1 

sta 
call 

3?»P 

SPACE 2 

specty : 

call 
spctyl : Kvi 
sub 

call 
sta 
call 
spcty2: fflvi 
sub 
mwi 
cal 1 
sta 
sta 
xra 
sta 
Ida 
rrc 
3nc 
Imp 

SPACE 2 
bndchte: ? assure 
jnc 
xt a 

bch2: 

Clip 

rc 

MOV 

ret 

SPACE: 2 



bndchSc jnake sure ii C0,/;nax3 

ypos ?y coordinate 

nposxy ^update posptr 

epsl4 



;yuax-(c-40B) 



epssnxt 
a/ymax*403 
c 

C/ ymax 

bndchfc >uake sure in rO/ymax] 
srfindt ;to? of window line f 

epssnxt 
a/ ymax+40B 



c 

C/^jaax 
bndchk. 
swindb 
ttyy 

a 

ttyx 

atf 

epsl4 
epenup 



? ymax-( c-40B) 

?aiake sura in CO/ ymax:} 

/line # Pottos of aiidow 

? zero ttyx 

; are we positioned? 

?yesr dont " fix xpos,ypos 

}no f copy ttyx/ ttyy to xpos/ypos 



stdout 



cstdout 



cstd3 



endstd: 



cendstd: 



call 

3 pap 

SPAC? 2 

» 
t 

mvi 

sta 

in 

ani 

•jnz 

in 

ani 

mvi 

jnz 

mvi 

sta 

ret 

call 
1 up 

space: 2 

xra 
sta 



a in C0,c] 

bch2 ?assuirses flags set 
a 

c 

a,c 



cstdojt 
eps!4 

?**must preserve h 
a/1 ?set master standout flag 

massof 

dsrdsHitcfi ? check for reverse video 

dsrvv ;using copy printer button temporarily 
cestd3 ? do the reverse 

dsrdswitch > which hardware option? 

dssatt ^standout bit in attr menu 

a/stndatoit ? o nly used for oit ii attr Tie a. 

cestd4 } yes 

a, 200B ;no, set flag 

stndoutf ; could save a oyte o / jumping from here 



cendstd 
apsl4 



a ?clear waster standout flag 

jiassof 



cestdS: 



cestd4: 
cestci2i 

nstin: 



ci rscr : 



inter : 



in 

ani 

Inz 

in 
ani 
3z 
mvi 

out 

xra 
st a 
ret 



dsrdsHitch ?checic for reverse video 

dsrw }on dma board switch 
cstd3 ? do reverse 

dsrds witch ; which hardware option? 

dssatt ) standout bit in attr mea. 
cestd2 ? no 
a, nostndatbit 



matt 



stndoutf 



avi b/ymax 
Ida ypos 
fflov C/a 
call insac 
call nposxy 
jmo epsl4 
SPACE 2 
call vdclr 
jfflp «psl4 
SP ACS 2 



Jset hardware (next writes wi 11 use) 
/clear flag 

?set up for insbc 



? nove do»n fro yp ds to /sax 
?not sure if this nescessary 



lhld 

mvi 

inx 

mvi 

inx 

mvi 

inx 

mvi 

inx 

mvi 

inx 

mvi 

inx 

push 

in 

rar 

rar 

rar 

rar 

ani 

mov 

!5Vi 

ixi 

dad 

■nov 

pop 

mov 

inx 

shld 

Ixi 

mvi 

add 

310V 

imp 



or oend 
ffl/ 34B 



m, 45B 

h 

ra,xoaxM03 
h 

ttiyymax+40i 
h 

mr Iptp 
h 

ffi/dtim 

h 

h 

adlsb 



17 
1, 

h, 
d, 

d 

h 

h 
pr 
h, 
a, 

ra 

as, a 
epsl4 



?4 bits of speed info 



a 

0 

rattab 
m 



oend 
procnt 
07h 



ncrdrodi 



crdmd 



oiNrch : 
Pikxhl 



SPACE 
; this code is 
;and is reset 

ipeod: 



SPACE 


2 


xra 


a 


sta 


cor dad 


in 


ksrd2 } 


-mi 


cutoff lite 


out 




jsp 


spsl 4 


SPAC" 


2 


mvi 


a/01h 


sta 


corded 


in 


ksrd2 } 


ori 


cmonlite 


out 


kswr 


lip 


epsl4 


SPACS 


2 


call 


epssnxt 


sui 


40B 


fflOV 


b#a 


Ida 


xpos 


add 


b 


sta 


xpos 


Ihl 5 


posptr 


call 


clrln 


shl i 


posptr 


imp 


ep s 14 



turn off light 
?bit 1/ 



led 6 



on 



light 
;bit 1, 



led 6 



2 

very- incomplete, 
the right place 



i need to 
to jump off 



reset 
to? 



Ipcnt somewhere 



SPACIS 1? 



PSHBUG 



Ixi 
inr 
raov 
CD i 

3^ 
ret 



h, rndent 

m 

a/m 
10 

reset 



;don't bother to stack bugs, rely on NLS to 

; change NLS 8 tc 

pshbug; 
pshbl i 

pshb2: 



* change 


NLS 8 to 


avoid leaving bugsarks 


call 


epssnxt 




sui 


40 B 




sta 


xbug 




call 


epssnxt 




mvi 


at f y fflax + 40B 


sub 


c 




lhli 


xpos 


;and ypos 


Push 


h 


/save them 


sta 


ypos 




15a 


xbug 




sta 


xpos 




call 


nposxy 


;sets h 


cal 1 


cstdout 


} turn on standout (pres 


aiov 


C/ra 


Jget current char 


cal 1 


vdout 


;?ut it out (but aith s 


call 


cendstd 




pop 


h 


; restore xpos, ypos 



rewrite them 
on spaces 



n) 



xpos 

nposx/ 

epend 



shld 

call 

Imp 

SPACS 2 
I do nothing (see pshbug) 
popbug: 



reset 



/resume tracking 



dltln: 



EXTERNAL. 



EXTKR?JAL PR3CESS05 INPUT fUN3L3R 



PAGE? 

a _ — _ _ 

r 

9 

r 

} 

m 

f 

m _ — — — — _ _ _. _ _ _ _ . 

/ ———————— — — —————— - 

SPACE 2 
?e?tst is called tar J t 
?reads a cnaracter and 
space i 

eptst : 





ops 14 


spac=: 


2 


call 


I'dcir 


lxi 


hvswindt 


ravi 


-\ f 0 


inx 


h 


mvi 




lap 


epend 


SPhC" 


2 


Ida 


ypos 


!BOV 


a 


mvi 


c#ymax 


cal 1 


scren 


xra 


a 


sta 


XpOS 


call 


nposxv 


JfflP 


epsl4 


SPACE 


2 


processor tmpjt 



;et tty window full 



? resume tracking 

> which line 
ydalste it 



jlaft of screen 



HANDLER 



eatst2: 



eptsD i 



in 

ana 

out 

ani 
rz 

cpi 
rz 

lhld 

mov 

inx 

mov 

cpi 

jnz 

lxi 

shld 

lxi 

inr 

mov 

cpi 

jnz 

out 



ne interrupt handler "intr: M . It 
exits if it doesn't get one. 



rdar 

a ; ignore nulls 

rsio jstart receiver for next char 

? non 13 entry ooint 

177B 



rubotit } don't pass padding 



epinptr 
fUr a 

h 

3/ 1 

epbend 
eptsb 
epbuf 

epinptr 
h, spent 

m 

epcldof f 
eptsc 

dcio 



? put char in buffer 
J bump in ptr 



eptsc : 

cpi epclerr 

t Hi- 
rst 4 
ret 

Jepcod processes one char from the earn buffer. If It's in 
^command mode it immediately goes off to the correct command handler. 
? Jn tn§ "first round" however it checks for Ipesc (the code for 
?a command) and ruboats (ignores thera and returns for next character) 

epcod : 





Ixi 


h/ epcnt 




*bii? down crtt 




dcr 










nov 










cpi 


epcl don 








1 nz 


epc2 








out 


dsio 






epc2: 












Ihl 1 


epoutptr 








310V 


c,.i 








inx 


h 




/bump out d tr 




mo v 


a,l 




} wrap ? 




cpi 


epbend 










epcl 




?not last char in ouff 




Ixi 


hr epbu f 




; ] ast char* init otrs 












shld 


epoutptr 








ixi 


ft, rndcnt 




?a connand 1 d o ? ? 




nov 


a/m 








ana 


a 








in z 


secrnd. 




5 ye s 




mow 


3/ c 




? no 




cpi 


1 pesc 








jz 


epsl2 






epirU : 


Iftld 


epbsO 








pchl 






;3ump off to correct 




SPACE 


2 






secrnd: 


mov 


3/ C 








jmp 


epinO 








s?a:s 


2 








; this 


simply transmits 


a character 


epsvcont: 










call 


epssnxt 






e ? 5 1 0 : 












mov 


c,a } 


transmit char 


epslls 












call 


vdout 






e? sl4: 












xra 


a 




? and reset mode 




sta 


rndcnt 










epsvcont 




;reset state switch 


epssnxt: 




jco-routine for 


next char 




POO 


h 








shld 


epbsO 








ret 






jnext 














in 


ksrd3 } 


check 


mode buttons 




ani 


mdswtty ;for screenJSP transparent 






epsll ; 


tr ansp 


./ Handle i i<e regular char. 



eps20: 



eps99a: 



psyy 



inr 


m 


/assumes hi points to rndcnt 


call 


epssnxt 




mov 


a, c 




cpi 


] pesc 


/2nd i n es c ch»r? 


3Z 


locod 


* yes 


mov 


3/ C 


; get char again 


sui 


40 B 




3 IB 


spslOO 


?is < 40B 


cpi 


268 




Ira 


sps9V 


fin €408-6561 


sui 


40B 




jm 


epslOO 


;in C6SB-7731, not assigned 


cpi 


5 




3P 


epslOO 


>is > 104B 


call 


epsawl 


;is for loader 




/command 


codes 1008-1048 are used by 


jmp 


epsl4 


^returns here after several 


1 do a 


loader sequence, for code in a 


pap 


h 


?set return !oc 


shld 


dwlret 




cal 1 


edentset 


/preserves a 


ixi 




?infl008, 105B3 


add 


a 


j double index 


mow 


Cf a 




mvi 


b/0 




d a d 


b 


} add to hi 


fflov 




J get address there 


inx 


h 




mov 


d/ a 




xchg 






pchl 
? 




; go off to it 


ixi 


h/ f cntab 




3 lap 

• 


eps99 




error 


code here) 




di 




?ao interrupts 


rst 


4 


} oreak to »on. for noa 


SPACE 


2 




• 


;set e?3si) to ed«ileat 


/preserves a if 


"call H ed 


call 


epssnxt 





edwlent J 



lhl d 

pchl 



'/ d.Ml dispatch 
da ltrv 



dwlnxt : /coroutine call for next char 

pop h 
snld dsltrv 
ret 

aps21: jset mem address reg (mar) 
call daisy te 
sta mar 
call dwlbyte 
sta mar+1 
3i y i C/53B 



a*f itr e 



cal 1 
} jmp 

J hi 3 
pchl 



Vdout 

dwlret 



eps^t jaeaiory load turn on 



eps22ai 



?claar flag 

?so ye can escape fron loading 



eps24 : 
eps26 : 



xra a 

sta rndcnt 

call dwlbyte 

i h 1 d nar 

fflov Hf a 

inx h 

shld mar 

i i!P eps22a /loops, depends on es~ to brea< out 

3iP dwltrm ? star ting address ignored now 

•nigit use eps24, don't <now yet 

lhld mar /start program at mar 

di 

pchl 



eps&yta; 
dwlbyte: 

eps30: 
eps40 : 



call 

PQp 

shld 
call 
ani 
sta 
call 
ani 
r 1c 
rlc 
rlc 
rlc 
Ixi 
ora 
lhld 
Pchl 



edentset 

?get 8 bit byte from two chars 
h 

5 i 

da lay r at 
dwlnxt 

OFh ?lsb to temp (Idrlsh) 

ldrlsh 

d»laxt 

OFh }msb ¥ Isb to a 

jrotate to msb 



h,ldrlsb ; or in Isb 

m 

cUlbyret jpast byta state 

/jump there 



cpdwl : }6m1 called fro^ cp 



Cpl 

jz 

lhld 

pchl 



I. p e s c 
cpdwl a 
dwltr v 

} note somewhat dangerous situation: cpdwl must be 
'called first with an esc or might wander into boonies 



cpdwl a: 



epend : 



call 
sui 

3 rap 

Ixi 

rrc 

mvi 



dwlnxt 

1003 

eps98 

h/mtf 
a,ti 

m, 1 



?get type code 



eoenup : 



Ihld 
shld 
cal I 

1.BP 

SPACE 



epsl4 

ttyx 

xpos 

nposxy 

epsl4 



f AGE / 
> 



EXTERNAL PROCESSOR TABLES 



/ 
* 
t 

J 

« * 
* 



BXTKKNAL Ptt'JCESSJR TABLES 



SPACE 



«e»tab j 


DM 


eps21 




ow 


eps22 




I) if 


epsl4 




DM 


eps 24 






eps 26 




J 




f cntaa : 


D W 


poseur 




0* 


specty 




DM 


ape rid 




DM 


hlkch 




Q W 


dltln 




Djf 


nstln 




D$ 


pshbug 




Da 


popbug 




0 « 


clrscr 




DW" 


reset 




D» 


tptst r 




DM 


tptopn 




Di 


tptcls 




DM 


inter 




DM 


stdout 




DM 


endstd 




9 i 


ncrdrnd 




Da? 


crdmd 




01 


curres 




DM 


tptnstr 




DU 


tptnopn 




Di 


scwindo 


rattab % 


;by 


decreasing 




3 B 


418,418 




DR 


508, 60B 



?538 
?548 



;658 



1? OKG for 2nd prom, scroll window {normal 0800h, debug x80Gh) 

;stuff in this prom should not be called if lptp is 458 instead of 46B 
ORG 3 " 2 5 a s a 



• k at** 



;scroii 



Window proto; 
scwindow: 



scwlra 



al 



SCWlp: 



call 


tradeoff 


Ixi 


h, scwxpos-1 


sbld 


scwinptr 


Ixi 


n,sc^l? 




epcoor 


Ibid 


scwinptr 


inx 


ft 


mov 


a, a 



? set up for getting 5 parameters 



J store a coordinate 



scwa: 



scwb: 



shld 


scwinptr 


nsov 


a, 1 




cpi 


scaxpos+4 


jrsz 


scwim 


? not done yet 


raov 




}+ or - displ acerr.ent 




ht a 


Icould get it frora c 


ana 


a 


? set flags 


jz 


spend 


/nothing to do 


! xi 


d, OF EPF 


h ; double register deer enenter 


im 


scwlq 


? loving down 


CTia 


} no wing 


u?, ®a'<® negative count 


inr 


a 




Ixi 


d, lOlh 


jdouble register inc re center 


dcx 


h 


/point to ybot 


s c a 1 3 : 






mov 


C/ a 




dcx 


h 


•ybot for do^n, yt op for up 


mvi 


3/ y it ax 


/ change to internal 








xchg 




/ put away inc/dec 


shld 


scwdir 




roov 


6/3 


> dest linef 


add 






mov 


d, a 


? src linef 


ixi 


h f sewxpos 


mov 




lleft margin 


sta 


XpOS 




era a 






inr 


a 


', -xlef t 


inx 


h 


} xright 


add 




; xright-xlef t 


inr 


a 


J width 


mov 


b, a 




inx 


h 


;top line/ external format (ytop>ybot) 


mov 






inx 


h 


Jybot 


sub 


a 


j ytop-ybot 


inr 


a 


j height 


add 


c 


/number to preserve and move 


jnc 


epend 


;**might want to remove this when things 


PUS fi 


b 


/ for use when clearing vacated lines 




c,a 


?in place for moving 


jz 


scad 


?io« aiove, just do clearing 


push 


d 


? source and dest line nums 


push 


b 


/love line ctr and width 


mov 


a / d 




call 


nposax 


/get source ptr to hi 


mov 


a^ e 




xchg 




jnow to &e 


call 


nposax 




Pop 


b 


jnposax might smash b 


push 


b 




1 dax 


d 


; nove one line 


mov 


ra/ a 




inx 


h 




inx 


d 




dcr 






jnz 


scwb 





3 IT 3 S" 



scwd : 



epcoori 



epcoorG 



epcoori 



epcoor 2: 



pop 


b 


? one line done 




d 






sc«* di r 


; incr or deer 


dad 


d 


; sre and dest line ptrs 


xchg 






dcr 


r 




-% r-s T 


scaa 




/ C 1 


r vacated lines 


pop 


b 


j o=wi dth/ c=#vacated lines 


pus a 






10V 


a/ e 




call 


nposax 




POP 


b 




DUSl 




/.iposax; smashes o,c 


call 


c 1 r 1 n 




pop 


b 




Ihld 


scwdir 




dad 


d 




xchg 






inr 


c 




jnz 


scwe 




lap 


ep end 


} all done 


receive routines 




set 


for cordinats collection 


shl d 


dwlbyret 




call 


ep ssnxt 






/coordinate collection protocai 


cpi 


cooresc 


? check for oi g coord 




epconorm 




call 


eo ssnxt 






/first 5 


bits of big coord 


sui 


408 




rrc 






rrc 






IOV 


c, a 




ani 


17B 


? hi 4 of top 6 


st a 


coorhi 






a,c 




ani 


300R 


Mo 2 of top 6 


sta 


coor lo 




call 


epssnxt 






?second 


6 oits of 3ig coord 


sui 


40B 




ixi 


h,coor lo 




or a 


m 




mov 


c, a 




Ihld 


dulbyr et 




pchl 






SPACF 


2 




J 

sui 


40 8 




m.ov 


c, a 




Ihld 


dwlbyret 





eoconor 



pchl 

tables tor new mouse/keyset handling 

case2tab: DB » !""#$%&*()? 4-*/**0123456789 
kysf ab: 

38 W C3_"/33B/158 ; «s = 4, case 2 

OB " ?ms=0, case 0 



mousechr tab : 
SPACE 1} 0 kg for 3rd 

ORG pr3base 
J GRAPHICS, C° CQMMAJOS 

tptclsi 



DB 

OS 
prom./ 



"/.;? " }ms=l, 



3CB, 



CP and GRAPHICS 
from EP 



case 3 
}ws=2, case 1 
2r 1/ 33B, 27B 

{normal OCOOn, debug 7CO0h ) 



tptci2: 

tptopni 

tptstr : 
tpts'21 



tpnxtin. 



xr a 
sta 
inr 

inp 

xra 

3mp 

call 

? second 

xra 

sta 

call 

mvi 

lxi 

sftld 

lxi 

dcr 

inx 

Ida 

add 

inr 

cpi 

3c 

sui 

tpts2o ; 
cal 1 
ret 



tptnoreos 

Ida 
sui 
inz 
inr 
sta 
Imp 

tptnopn: 

call 



t?tno2 



•clear block requests 



jclear flag 



} gat next available buffer 
;adjusting count 



tptno3 



J device 
sf a 
lxi 
cpi 
Inz 
lxi 
tptno2a: 
shld 
call 

ani 
jnz 



c? nopver 
a 

grtrackf 

e ? s 1 4. 

a 

tptc!2 

epssnxt 
char 

a 

cpignrE 
tpnxtin 

!»/-100 

tptn3b 



h/cpsio /make sure xf er vector correct 
cpoutr v 
b/cp rgcnt 

i 
h 

rqoutl 

m 

31 

cpnline Jcheck for wrap 
tpts2b 
cpnl ine 

cplncnt 

^attempt reopen 
cpnopver 
cpnfunny 

tptno3t) ?nO/ do reguar open 
a /ok/ 
cpnopnf 
epsl4 

?open, new format 
epssnxt 
code 
cpdev 
h f cpsio 

cpdvcore ? loader? 

tptno2a ?no 
h/cpdwl ; yes 



; verify it was open 

do reguar 
reopen it 



cpoutrv 
epssnst 
> mode code 
cpjareopan 
tptnoreo 



} reopen? 
?yes 



', f unny# 

?# requests safe to sake 



tptnstr 
tptnsl i 



tptns2 : 



tptn2c J 



tptns3: 



t g t n > 3 3 : 

mvl a/1 

sta epnopnf 

ravi a/cpnfunny 

sta cpnopsrsr 

mvi a/cproutfflax 

sta cprqcnt 

xra a 

sta rgout i 

sta cpcmtdcnt 

mvi a/ 408 

sta rqoseqn 

■ ?nea format cp record 

call epsbyte 
jchecsum in a 

cna /form negative 

inr a 

sta cpcfcsua 

xra a 

sta cpignrf /dear ingara flag 

sta rndcnt 

call epssnxt 
; device # 

call cksumacld ^preserves a 

Ixi ht/cpdev 

crap m 

1? tptn2c ? device num. ok 

Ixi ri/cpi gar f 

inr m ; set flag to ignore record 



t?tn33 5 

tptn3d: 
tptns4: 



Ixi 

inr 

call 

* s e q I 

call 

sta 

call 

ana 

call 

mov 
ana 
JP 

shld ■ 

inx 

shld 



h/cprqcnt 

apssnxt 



?oc to !na<9 another request 



jpreserves a 



cksuraadd 
cpsqnun 
Insq 
a 

tptn3c 

cplacat *seq. num. o< 

a/ in 

a ? Hake sure Me are waiting for this one 

tptn3c ?no 



?used at tptns! 



cpcntptr 
h 

cpinptr jput chars here 



call epssnxt 
?char. cnt. 
call cksumadd 
c?i cpnchar+418 
1nc tptns4d ; yes 

sui 4 OB 

jp tptns4c > is ok 

t ? t n 3 4 d : 

mvl a/cpnchar 

tptns4c: 

sta cpepcr.t 



; too big? 



totns5t 



:ptn53 



tptnSc: 



/preserves a 

? see if ignoring 



?dec. count 



sta cphcnt ; i o 1 d here far use by tptnsS 

37. tptns4t> ; in case have 0 cnt 

call epssnxt 
✓character collector 

call cksuffiadd 

Ixi h/cpignrf 

irr ra 

dcr m 

cz cpbin }ok 

Ixi n, cpeDcnt 

dcr m 

rtxt ? not done vet 

Ida cpignrf 

ana a ? see if ignoring 

jn.z eps!4 ?yes/ just clear dispatcher 

Ida cphcnt 

Ihll cpcntptr 

iov m , a >?iiark received 

Ida cpnopnt ; doing chec<sum? 

ana a 

37 epsl4 

Ida cpcksum 

ani 17 73 

jz epsl4 /checksum ok f go cear dispatcher 

Ida cpsqnum } incorrect checsum/ re-request 

call rquest 

jap epsl4 



tptn3c ; 

lxi 
inr 

tptns4b : 

1 sci 

!HOV 

cpi 
jnz 
ida 
ani 
jnz 
inr 
Ida 
call 

W.OV 

inr 
inr 

sta 
jssp 

cksumadds 

push 

lxi 

add 

mov 

pop 

ret 

rqtochsc: 

l^a 

ana 



h/colgnrf 

m 

tptn3d 



h/ canoonf 

Bf ill 
1 

tptnSb 

C?C<S11T1 

177B 
tptnSc 

m 

cpsqnum 
Insq 
a, c 

3 

a 

cpcmtdcnt 
tptnSb 
; add a to 
ps» 

h/Cpcksum 



/unexpected seq # 



*, error/ re-rsquest 
;no more requests (but 
'adjust cpcutdcnt 



maybe re-requests) 



cpcksum/ preserve a 



PS*I 

/Check requests 

cpnopnf 

a 



for timeout/ every 4 sac . (approx.) 



roota 



cpbin: 



rz 
Ixi 
mov 
1 xi 
mov 

mov 
call 

E80V 

push 

call 

call 

pop 

push 

irr 

c? 

POD 

inr 
dcr 
i : 1 2 
ret 

/DUt 

lhld 

mov 

inx 

shid 

ret 



h/ rqosaqn 

h/ cpcmtdcat 
6/ n» 

a/ a 

seqnbnd 
d/ a 

a 

lnsq 
cd 1 ncn t 

d 

m 

rqchk 

d 
d 
e 

r qota 

a in cp buf 
cpinptr 

m, a ; put aaray char 

h 

cpinptr 



^graphics cursor 
gf bits: 



» 


/ r etur a 


to caller's caller if c? open 


Ida 


grtr ackf 




dcr 


a 




Ixi 


h/cpnopnf 


or a 


IB 




Ixi 


h/ epe rat dent 


ora 


n 




rz 






inx 


sp 


? something '3 happening 


inx 


sp 




ret 








(h)*2 to jc, get d bits to a 


mov 


b/ !B 




inx 


h 




mov 






ral 




/tines 2 


mov 


C/a 




mov 


a/ b 




ral 






n ov 




; times 2 dona 


Inc 


gnbits 


;no overflow 


Ixi 


b/ OFFFFh 


? overflow/ set to max 


jmp 


gnbits 




lies : 


Jcont. o 


f convrt code for graphics 


Ida 


grcurf 


?also clears cYt used below 


ana 


a 




rz 




?a-n cursor/ done 




a, 3 


;gr. cursor 


rar 




/mult by 1.5/ cy was 0 from above 


mov 


b, a 




mov 


-9. / C 




rar 







kof grs*: 



kbgcoor : 



kbgcur s 



kOgcUO 



add 

fflOV 

mov 
cicx 

adc 

fflQV 

ret 

in 

an! 

rz 

Ixi 

mvi 

xra 

mov 

inx 

inx 

ret 

mvi 
mvi 
3 rap 
?do 
mvi 
inx 
mov 
mvi 



*"/ a 

b 

h 

m 

Biz a 



^rotated high bits 
? ?oints to high part 
/high bits 



dsrdswitch 

dsgrswkey ^graphics cursor switch on keyboard? 

/no, great as normal key 
h,grcurf }o<, change flag 

a/1 /being a little stingy with the bits 
■1 > just in case we need them 

a/ a 

s? ^return to caller's caller 

sp 

} send coordinates/ graphics format 
H/44B } graphics format 
d/6 ? char count 

kbgcuo 

graphics cursor for ep 

H/45B ; identify as graphics format 



inx 

push 

Ixi 

cal i 

Ixi 

call 

POP 

3 ip 

st26: /saovi 
push 
xchg 

!I!Vi 

call 

pop 

adi 

mov 

inx 

mvi 

call 
adi 

mov 
inx 
ret 
chk grcur : 

ixi 
mov 
ana 

U 

inx 

ana 

inx 

ana 



h 

T;/ C 

d,7 

h 
d 

d/Xcur 
st26 
d/ycur 
st26 

d 

koen2 
rursor at 
h 



?char code 
jchar count 



/Prepare to do x 
??Uts OUt trfD six oit 



:hunlc s 



? do y chunks 



Mpdate pointers and count 

(d) to (h) in two six bit pieces (+408) 



d, 4 ? Dlts in first chunk 

gf bits /loads bits to be/ gets first 6 in a 



h 
608 

1/3 

h 

d/6 

gntaits 
40B 
ra/a 
h 



h/ grcurf 

a/ffl 

a 

ncurb 
h 

m 
h 



? get back dest. pointer 



jolts in sacond 

J get next six b its to a 



/see if gr. cursor active 



;io/ a-n cursor 

/see if we should send gr. cur to tek. 



st25 



cpck4: 



cpck3: 



TZ 


•no, one of them is zero 


Ida 


cpcmtdcnt ; how is the buffer 


cpi 


Id 




rp 


?too full 


xra 


a 


? ok/ do it 


raov 


m r a 


? clear curchflag 


call 


tptixtm 


; jet a suffer 


rovi 




j s ix chars for a cursor position 


inx 


h 


j to first char of buffer 


shl d 


cpinotr 


> pointer for cpbin 


miri 


a, 358 


?set graph node 


call 


cpbin 




Ixi 


h,ycur 




mvi 


C/140B 


j base code for lo x 


call 


St25 




Ixi 


h/Xcur 




mvi 


c, 100B 




call 


st25 




m if i 


a, 378 


; turn off graph mode 


call 


cpbin 




ret 






/Store 


2 5-bit 


parts in cp buffer 


pus n 




} c has lo x or lo / 3 ase 


mvi 


3,5 




call 


gf bits 


/load ( h) to be, get first 5 bits to 


adi 


408 


) hix or hi y base 


call 


cpbin 


??ut in suffer {only uses a,!il) 


cal 1 


gnbits 




Pop 


b 


> get c back (lo x or lo y base) 


add 


c 




call 


cpbin 




ret 






itput 






• • 


?out to 


c? if char waiting and port ready 


Ida 


cpnopnf 




cpi 


1 




jnz 


cpck3 


?no new req. allowed 


Ixi 


h, cor gc 


nt ?if cp needs 


mov 


a* ra 


/request sent* do it if appropriate 


ana 


a 




jz 


cpck3 


; none pending 


Ida 


cpcmtdcnt ,see if space there fo a r eq 


cpi 


cpnline 


-1 


jP 


cpck? 




Ida 


procnt 


?see if suffer otc 


ana 


a 




jnz 


cpck3 


5 no 


Ida 


cordmd 


; nake sure in coordinate mode 


ana 


a 




jz 


cpck3 




dcr 


m 


?pt to cprqcnt 


inx 


h 


}pt to cpcmtdcnt 


Ida 


rgosega 




add 






inr 






call 


seqnbnd 




call 


rguast 




ixi 


h, cpcnt 





cpcki2: 



cpckll: 



ana 

n 

in 

ana 

tz 

in 

ani 

cnz 

Ida 

dcr 

jo 

dcr 

ihld 

mov 

inx 

shld 

jm 

push 

in 

ani 

out 

pop 

cpck3b; 

inr 

3* 

mov 

ana 

cpi 

1z 

3n?P 



sta 
1 da 
jmp 



/nothing watlng for cp 
?cp status 



a^m 

a 

cpck:5 
psrd 
a 

?not ready 
ksrd3 ; check CP off button 
mdswc? 
cp hoi dchk 
cprptcnt 
a 

cpckl2 

m ;ok, do it 

cpoutptr 

c/m /char to go 
h } hunsp pointer 

cpoutptr 

cpckSo ; nor e to do after this 
psw . 

ksrd2 ? end of a buffer/ turn off c? lite 

cpof f lite 

ks«ir 

psw 



a 

cpclcll 

a#c 

a 

26 8 

cpck8 

cpouch 



? cprptcnt 
char 
} ~v 

/put it out 



cprptcnt 
cprptchar 

cpouch /put it out 



inr a 

jz cpck9 

sta cprptcnt 

mov a,c 

cpi *A ; only one defined now 

jz cpcklO ;yes, doing rubouts 

cpi '8 } sequence for "esc"? 

jz cpcklOb ?yes 

call cpouch no, not special 

xra a 

sta cprptcnt 

ret 



cpcklO: 



sta 
ret 



a/1778 ? rubout 
cprptchar 



cpcklOb: 



xra 
sta 
fflvi 



cprptcnt 
a,33B 



cpouch 



cpcky : 



mo9 
sui 
sta 
ret 



a r c 

40 B 

cprptcnt 



cpckB: jfomid *? 

sta cprptcnt 
ret 



cpouch: 



Jchar 

Ihld 

pcht 



in a 

cpoutrv 



cpsio : ;out?ut to cp port 

out psio 
ret 

c?noidchki ?nold it ZP (by returning to caller's caller) 

Ida cpnopnf 

ana a 

3nz cphckb 

Ida cpnopver 

cpl cpnf unny ?funny# 

rnz ; no, must be graphics, Jont lold 

cphckb : 

inx so ? return to caller's caller 

inx sp 

ret 

cpckb : ;see if next buffer rev? 

Ida cpcintdcnt 

ana a 

rz }ao requests outstanding 

Ida rqoutl jsee if next buff revd 

call cplncnt ? get to the suffer 

mov a/ffl /if <0, not received yet 

ana a 

rm )not in yet 

sta epent }okf put ch. cout here 

inx h ; to first char of buffer 

shld cpoutptr ; put char pointer here 

Ixi hr epemtdent 

jz cpc< 14 ?nay be "EDF" record 

in ksrd2 /turn on cp lite 

ori cponlite 

out kswr 
cpc<! 5: 

dcr m ? dec # requests outstanding 

inx h jrqoseqn 

t.cv a,m 

inr a 

call seqnbnd ?check for wrap 

mov in, a 

lxi h/rqoutl >coul.d maybe inx? 

inr m 

mov a#m 

sui cpnline ? check for wraparound 

jc cpck3 }no 



cpckl4: 



cpinit : 



may 

Ida 
ana 

3Z 

xra 

mov 
sta 
st a 
Hivi 
Ida 
call 

ret 

xra 

sta 

Ida 

cpi 

rz 

lxi 

lxl 

mvi 

lxi 

mov 
inx 

131/ 

inx 

xchg 

dad 

xchg 

dcr 

3nz 

ravi 

sta 

xra 

sta 

sta 

sta 

sta 

sta 

ret 



cpck3 

cpnopnf ?new type? 
a 

cpcklS ?no 

a 'clear flags 

ffl/a ; cpcmdtcnt 

cpnop af 

cpnapver 

c, 408 ;0 count for rqstn 
rqoseqn 

rgstn ? request 0 length record witn same # as "EOF" 
/tells ep we finished successfully 



cpnopnf 
cpnopver 
cpnf unny 

• a r e o ? e n is possisle 

d/tablM9 

b, cpnchar +1 

a, cpnline 

h,tabl 

m, e 

h 

h 



a 

pupx2 
a,40E 
rqosegia 
a 

cprqcnt 

cpcmtdcnt 
cp cnt 

cprptcnt 



rqout 1 



cpincnt; 



lxi h/tabl 

Imp incntb 

segnbnd: Jmake sure seq# in C40B/175B1 

?in practice, must be called with a in C 408, 33583 

c?i 1768 

rc 

sul 1768-403 ?char was > = 176B 

ret 

? convert seq# to buffer (line) number 

lxi h/rqoseqn 

sub on * ieita seqn 

jnc Insqb ?no wrap involved 

adi 1768-408 



insg: 



Insqb : 



c, a 



rqchk : 



roues t 



rqstn: 



] -3a 
sub 
mvi 
rc 
Ida 
add 
c?l 
rc 
sui 
ret 

dcr 
rp 

iaa 

cp i 
rp 
Ida 
a na 
rz 
mov 

} request 
mvi 

push 
push 
mvi 
di 

call 
mvi 
call 
Ida 
cal 1 
pop 
call 
call 
call 
mvi 
nop 

mov 
call 
si 
ret 



cpcffltdcnt 
c 

a/ 3 77 3 ;in case delta too big 

?«ras too big 
rqoutl /it's ok 

c 

conline ; cpnline 
cp nl ine 

•called only from rqota 
® ?undo previous inr 

} don't touch positive ones 
> see if loom in ep outbuf 

7 no 

?»ake sure in coordinate mode 



Procnt 
22 

cordrad 
a 



a , d Jseqn # 

to ep, seqf in a 
c,c?nchar*40B 



b 

ps« 
a, 343 

kbncr d 

a,47B 

bncrd 

cpdev 

kbncrd 

psw 

koncr d 
Insq 



? save count 
; i p e s c 

jmake sure no keyboard chars get in 
^request code 

/device received with "open" 



? nust ?resar/e a 
/get 1 ine* 
cplncnt ?get cnt ptr to h 
m/-rqicti«8e 

o /get count 3ack in c 

a,c 

kbncrd 



END 



